home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 25 / AMIGAplus Sonderheft 25 (2000)(Falke)(DE)(Track 1 of 4)[!].iso / Tools / SFX-Player / Mpeg / MrMPEG / Delete.rexx < prev    next >
OS/2 REXX Batch file  |  2000-05-08  |  1KB  |  33 lines
  1. /* Delete.rexx */
  2.  
  3. options results; address MrMPEG
  4.  
  5. MUIA_List_Active    = 0x8042391c;    MUIA_List_Entries    = 0x80421654
  6. MUIA_ShowMe        = 0x80429ba8;    MUIA_Slider_Level    = 0x8042ae3a
  7. MUIV_List_Remove_Active    = -1
  8.  
  9. list ID SLIST ATTRS MUIA_List_Active
  10. list ID SLIST POS result; parse var result filename','temp_song_time','dummy
  11. list ID SLIST REMOVE POS MUIV_List_Remove_Active
  12. list ID SLIST ATTRS MUIA_List_Entries; temp_max = result
  13. setvar max temp_max
  14. text ID MAX LABEL "\033b\033r"temp_max
  15. getvar total_time
  16. parse var result hrs":"mins":"secs
  17. temp_total_time = hrs * 3600 + mins * 60 + secs - left(temp_song_time, 2) * 60 - right(temp_song_time, 2)
  18. temp_string = right(temp_total_time % 3600, 2, 0)||":"||,
  19.   right(temp_total_time // 3600 % 60, 2, 0)":"right(temp_total_time // 60, 2, 0)
  20. setvar total_time temp_string
  21. text ID TOTAL LABEL "\033b\033r"temp_string
  22. check ID PLAY; playing = result
  23. getvar current_song
  24. if filename = result then do
  25.   string ID FNAME CONTENT "No song is loaded."
  26.   text ID LCD LABEL "MrMIDI is also available from Aminet."
  27.   text ID ACTIV LABEL "\033b\033r  0"
  28.   text ID CURNT LABEL "\033b\033r00:00"
  29.   if playing = 1 then call Stop.rexx
  30.   else slider ID PROG ATTRS MUIA_Slider_Level 0
  31. end
  32. return
  33.